home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / oop_tp55.zip / MTEST5OB.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-26  |  2KB  |  48 lines
  1. program MTEST5OB;
  2. { This program creates a copy of MTEST5.OBJ for those who 
  3.   do not yet own Turbo Assembler. }
  4.   
  5. const
  6.    objfileary : array [0..225] of byte
  7.                       = ($80, $0C, $00, $0A, $4D, $54, $45, $53,
  8.                          $54, $35, $2E, $41, $53, $4D, $99, $88,
  9.                          $1F, $00, $00, $00, $54, $75, $72, $62,
  10.                          $6F, $20, $41, $73, $73, $65, $6D, $62,
  11.                          $6C, $65, $72, $20, $20, $56, $65, $72,
  12.                          $73, $69, $6F, $6E, $20, $31, $2E, $30,
  13.                          $BA, $88, $12, $00, $40, $E9, $A1, $B3,
  14.                          $46, $14, $0A, $4D, $54, $45, $53, $54,
  15.                          $35, $2E, $41, $53, $4D, $B4, $88, $03,
  16.                          $00, $40, $E9, $4C, $96, $02, $00, $00,
  17.                          $68, $96, $06, $00, $04, $44, $41, $54,
  18.                          $41, $46, $98, $07, $00, $48, $00, $00,
  19.                          $02, $01, $01, $15, $96, $06, $00, $04,
  20.                          $43, $4F, $44, $45, $45, $98, $07, $00,
  21.                          $28, $15, $00, $03, $01, $01, $1F, $8C,
  22.                          $19, $00, $04, $58, $50, $4F, $53, $00,
  23.                          $04, $59, $50, $4F, $53, $00, $0A, $45,
  24.                          $4E, $54, $52, $59, $50, $4F, $49, $4E,
  25.                          $54, $00, $98, $90, $0D, $00, $00, $02,
  26.                          $06, $4D, $53, $54, $41, $52, $54, $00,
  27.                          $00, $00, $80, $88, $04, $00, $40, $A2,
  28.                          $01, $91, $A0, $19, $00, $02, $00, $00,
  29.                          $1E, $B8, $00, $00, $8E, $D8, $89, $0E,
  30.                          $00, $00, $89, $16, $00, $00, $9A, $00,
  31.                          $00, $00, $00, $1F, $CB, $4F, $9C, $14,
  32.                          $00, $C8, $02, $54, $01, $C4, $08, $06,
  33.                          $01, $01, $C4, $0C, $06, $01, $02, $CC,
  34.                          $0F, $06, $02, $03, $9E, $8A, $02, $00,
  35.                          $00, $74);
  36. var
  37.    i : integer;
  38.    f : file of byte;
  39. begin
  40.      Assign( f, 'MTEST5.OBJ' );
  41.      Rewrite( f );
  42.      for i := 0 to 225 do
  43.          write( f, objfileary[i] );
  44.      Close( f );
  45.  
  46. end.
  47.                         
  48.